if(3.4/100 <5)
{
	print "sucess\n";
}
=ead
@check_chr = (1,2,3,4,5,6,7,8,9,10,23,24,26);
print "@check_chr\n";
for($i=0;$i<@check_chr;$i++)
{
	if($check_chr[$i] == 23)
	{
		$check_chr[$i] ="X";
	}
	elsif($check_chr[$i] == 24)
	{
		$check_chr[$i] ="Y";
	}
	elsif($check_chr[$i] == 26)
	{
                $check_chr[$i] ="M";
        }
	else
	{

	}
}
@check_chr = sort @check_chr;
for($i=0;$i<@check_chr;$i++)
{
        if($check_chr[$i] eq "X")
        {
                $check_chr[$i] ="23";
        }
        elsif($check_chr[$i] eq "Y")
        {
                $check_chr[$i] ="24";
        }
        elsif($check_chr[$i] eq "M")
        {
                $check_chr[$i] ="26";
        }
        else
        {

        }
}
print "@check_chr\n";

=head
$dbsnp='/data4/bsi/bioinf_int/s106381.borawork/1KG/allboraDbSnp_b37p5.txt';
$grep = 'grep -P "^'.'Y'.'\t"'." $dbsnp";
#print "$grep\n";
open(DB,"$grep |") or die "no file found\n";
$l = <DB>;
print $l;
